home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / homeimpr.sit / Home Improvements / card_7693.txt < prev    next >
Text File  |  1988-09-19  |  1KB  |  60 lines
  1. -- card: 7693 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3490
  5. -- name: Shutdown
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=401 top=120 right=136 bottom=497
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: shutdown
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put 10 into secsDown
  23.   repeat forever
  24.     put secsDown && "Seconds until SHUTDOWN (hit cmd-period to cancel)"
  25.     wait 59 ticks
  26.     subtract 1 from secsDown
  27.     if secsDown<1 then exit repeat
  28.   end repeat
  29.   put "Gone!"
  30.   shutdown
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part contents for background part 1
  36. ----- text -----
  37. Shutdown
  38.  
  39. -- part contents for background part 3
  40. ----- text -----
  41. on mouseUp
  42.     put 10 into secsDown
  43.     repeat forever
  44.       put secsDown && "Seconds until SHUTDOWN (hit cmd-period to cancel)"
  45.       wait 59 ticks
  46.       subtract 1 from secsDown
  47.       if secsDown<1 then exit repeat
  48.     end repeat
  49.     put "Gone!"
  50.     shutdown
  51. end mouseUp
  52.  
  53.  
  54. -- part contents for background part 5
  55. ----- text -----
  56. 7/1/88 4:07 PM
  57.  
  58. -- part contents for background part 4
  59. ----- text -----
  60. This is an example of how to use the Shutdown XCMD by Joseph F. Buchanan.  If Shutdown is called with the R option, then it will do a restart instead of a shutdown.